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FOREWORD 


This  study  compares  the  actual  demands  for  new  provisioning  items  to  forecasted 
demands  of  Supply  Support  Requests  (SSRs)  which  are  being  submitted  by  the 
Military  Services.  The  objectives  of  the  study  were  to  determine:  first,  the 
validity  of  initial  SSR  estimates  received  in  relation  to  item  demands 
experienced,  and  second,  if  the  forecast  error  could  be  significantly  ii^iroved 
by  using  the  additional  requirements  generated  by  the  follow-on  or 
reprovlsloning  SSRs.  The  total  requirements  estimate  for  a  two-year  period 
using  initial  SSR  quantities  in  terms  of  acquisition  value  was  found  to  be  349 
percent  greater  than  the  total  actual  demand.  The  Inclusion  of  follow-on  or 
reprovlsloning  SSRs  Increased  that  percentage  60  percent  to  409  percent. 

The  effort  documented  herein  was  a  study;  Its  findings  and  conclusions  reflect 
the  data  at  the  time  the  study  was  conducted  and  should  not  be  construed  as  the 
official  position  of  the  Defense  Logistics  Agency-'''^  _ 
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I .  INTRODUCTION  .  Current  DLA  provisioning  policy  uses  Information  on 
initial  Supply  Support  Requests  (SSRs)  to  forecast  demand  and  set  inventory 
levels  for  new  items,  but  it  does  not  give  equal  consideration  to  forecasted 
requirements  on  reprovlslonlng  or  follow-on  SSRs.  Specifically,  it  does  not 
incorporate  the  replenishment  requirements  submitted  by  the  Military  Services 
on  follow-on  or  reprovlslonlng  SSRs.  Moreover,  in  the  case  of  the  retail 
requirements  from  these  SSRs,  they  are  only  considered  if  their  quantities 
exceed  the  current  quarterly  demand  forecasts  for  the  SSR  items.  Since  these 
requests  are  "looked  at”  on  an  individual  SSR  basis,  many  of  the  forecasted 
requirements  for  an  item  or  national  stock  number  (NSN)  are  not  procured  at  the 
time  the  supported  end  item  is  provisioned.  The  DLA  Weapon  Systems  Support 
Office  (DWSSO)  requested  that  DLA  Operations  Research  and  Economic  Analysis 
Office  (DLA-LO)  perform  a  comparative  analysis  of  estimated  versus  actual 
requirements.  The  purpose  of  the  analysis  was  to  determine  (1)  the  accuracy  of 
SSR  Information  and  (2)  the  Impact  of  using  follow-on  or  reprovlslonlng 
information  to  forecast  demand. 

II.  ANALYSI S .  The  methodology  followed  in  the  analysis  was: 

A.  the  design  of  a  comparative  analysis  model, 

B.  the  development  of  a  data  base  to  support  the  model, 

C.  and  the  execution  of  the  model  using  conqputer  resources. 

Four  DLA  commodities  (construction,  electronics,  general,  and  industrial)  were 
sampled  in  the  analysis.  The  availability  of  provisioning  data  limited  the 
scope  of  the  analysis  to  a  two-year  period  beginning  with  the  second  quarter  of 
Fiscal  Year  1983  through  the  first  quarter  of  Fiscal  Year  1983.  Requirements 
for  this  period  were  correlated  with  actual  demands  by  quarter  to  determine  the 
overall  accuracy  of  SSR  estimates. 

III.  FI NDI NGS  .  A  total  of  112,894  provisioning  items  having  955,901  SSRs 
were  analyzed.  The  results  of  each  commodity  showing  the  relationship  between 
actual  demands  and  SSR  forecasts  were  as  follows: 


Table  I  .  Actual  Demand  vs.  Forecasted  SSR  Requirements 

(Units  of  Issue) 


Commodity 

Actual 

Demand 

Initial 

SSR 

Percent 

Total 

SSR 

Percent 

Construction 

416,338 

532  ,959 

(+  28Z) 

607  ,793 

(+  46Z) 

Electronics 

457,867 

823,944 

(+  80Z) 

1 ,070,596 

(+134Z) 

General 

314,120 

1,598,930 

(+409 Z) 

1 ,823  ,824 

(+481Z) 

I ndustrlal 

2  ,951,666 

7  ,994,827 

(+17 IZ) 

8,849,997 

(+199%) 

Total 

4,139  ,991 

10  ,950  ,660 

(+165Z) 

12  ,352  ,210 

(+198Z) 

Although  the  volume  of  requests  exhibited  a  large  degree  of  variability  from 
commodity  to  commodity,  in  30  of  the  32  quarters  analyzed  requirements 
forecasted  exceeded  actual  usage.  At  the  aggregate,  level,  subsequent  SSR 
requirements  did  not  Improve  the  forecast  as  related  to  actual  demand.  The 
industrial  commodity  accounted  for  approximately  71  percent  of  the  total  units 
Issued.  To  obtain  a  more  absolute  measure  of  the  magnitude  of  the  differences 
that  existed  between  the  demands  that  were  experienced  for  these  items  versus 
the  initial  and  follow-on  forecast  requirements,  the  acquisition  value  of  the 
items  was  used  to  determine  a  dollar  cost  difference  between  actual  costs, 
initial  SSR  costs,  and  follow-on  SSR  costs: 

Table  II.  Actual  Demand  vs.  Forecasted  SSR  Requirements 
(Acquisition  Value) 

$  Value 


Commodity 

$  Value 
Actual 

$  Value 

Initial  SSR  (%) 

Follow-On 

SSR 

$  Value 

Total  SSR  (%) 

Construction 

190.7 

1039.8 

(+445%) 

144.8 

1184.6 

(+521%) 

Electronics 

181.6 

935.7 

(+415%) 

207.6 

1143.3 

(+529%) 

General 

177.2 

664.7 

(+275%) 

3.8 

668.6 

(+277%) 

1 ndustrlal 

120.9 

372.5 

(+208%) 

45.1 

417.5 

(+245%) 

Total 

670.4 

3012.7 

(+349%) 

401.3 

3414.0 

(+409%) 

The  construction  commodity  accounted  for  the  largest  portion  oi  the 


provisioning  buys  with  34.5  percent,  with  the  electronics  items  being  second 
with  31  percent. 


IV.  OONCLUSIONS.  The  intention  of  this  effort  was  to  <assesa!’<the  effective- 

—  I  I  . .  — .  ^  . 


ness  of  the  currentCDLi^  provisioning  policy  ao  well  ars  to  provide  a  basis  and 
direction  for  future  provisioning  analyses.  The  methodology  used  in  the 
analysis  successfully  provided  a,  quantitative  measure  of  the  correlation 
between  actual  demand  versus  ^SSR  forecasted  requirements  at  the  commodity^ 
•^-can  "be  'eeen‘“rfoi^  the  magnitude  of  the  percentages  in  the  above^ 


fables,  ^timates  being  received  at  each  of  the  DLA  Supply  Centers  (DSCs)  for 
provisioning  items  were  far  in  excess  of  actual  recorded  usage.  Two  variables, 
units  of  issue  requested  and  acquisition  dollar  value,  were  used  to  measure  the 
difference  between  actual  demands  and  the  forecasted  requirements.  Results 
from  these  separate  analyses  produced  differences  in  terms  of  raw  percentages 
at  the  commodity  level.  However,  each  confirmed  the  same  conclusion,  that 
^Sgi^egate  item  forecasts  from  the  Military  Services  are  substantially  greater 
than  true  item  demands.  When  the  follow-on  requirements  were  included  in  the 
total  provisioning  forecast,  the  percentage  increases  were  remarkably  close; 
13.3  percent  for  acquisition  value  and  12.8  percent  for  units  of  issue. 
Although  these  results  do  indicate  that  some  type  of  policy  change  considering 
the  unique  characteristics  of  items  be  developed,  it  does  not  endorse  a  blanket 
policy  of  us.l:ig  the  total  requirements  from  the  initial  and  follow-on  SSRs. 
The  acquisition  dollar  value  of  buying  the  follow-on  SSR  requirements  would  be 
in  excess  of  400  million  dollars  for  the  two-year  period  studied.  ■, 
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V.  RECOMMENDATIONS .  The  following  reconmendations  are  made  as  a  result  of 
this  analysis: 

A.  Item-level  analysis  of  each  commodity  should  be  conducted  to  Identify 
the  percentage  of  Items  that  are  being  overforecasted,  under¬ 
forecasted,  or  accurately  forecasted.  This  analysis  should  also 
Include,  as  a  minimum,  stratification  of  items  Into  subgroups  based 
on  their  cost,  weapon  system  criticality,  and  requesting  Military 
Service. 

B.  The  construction  and  industrial  conmodltles  should  be  given  special 
attention  because  of  their  disproportionate  share  of  the  total 
provisioning  activity. 

C.  Integrate  key  data  elements  from  the  Provisioning  Control  History 
File  Into  the  DLA  Inventory  Data  Bank  to  ensure  that  a  historical 
file  of  SSR  requests  older  than  two  years  is  available  for  future 
analysis  and  access. 

D.  Initiate  development  of  a  stochastic-type  simulation  model  to 
develop,  evaluate,  and  design  variable  provisioning  policies  based  on 
an  item  or  group  of  items  characteristics  and  behavior. 
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INTRODUCTION. 


I . 


A.  The  Provisioning  Mission.  "The  principal  objective  of  provisioning 
is  to  assure  the  t ime ly  availability  of  minimum  initial  stocks  of  support  items 
at  using  organizations  and  at  maintenance  and  supply  activities  to  sustain  the 
planned  operation  of  end  items  until  normal  replenishment  can  be  effected,  and 
to  provide  this  support  at  the  least  initial  Investment  cost"  [Ref:!].  To 
successfully  accomplish  this  mission  certain  supply  actions  are  required.  Many 
of  the  related  decisions  are  made  in  an  environment  of  uncertainty  as  the  true 
demand  lor  support  items  is  unknown  at  the  time  they  are  provisioned  for. 

B.  The  Provisioning  Process  .  The  provisioning  process  begins  at  the 
time  a  production  contract  is  awarded  for  an  end  item  of  materiel,  and 
continues  through  the  period  of  time  required  to  have  such  support  items 
shipped  by  manufacturers  and  suppliers.  The  provisioning  process  does  not 
normally  include  the  acquisition  of  items  for  replenishment  purposes  or  to 
augment  existing  stocks  of  items  already  established  in  the  supply  system. 
Follow-on  provisioning  is  the  subsequent  provisioning  of  the  same  end  item  from 
the  same  contractor,  and  re-provisioning  is  the  subsequent  provisioning  of  the 
same  end  item  from  a  different  contractor  [Ref:2] . 

The  using  Military  Service  has  sole  responsibility  for  the  final  selection  and 
computation  of  the  range  and  quantity  of  support  items  required  for  the  initial 
service  support  requirements  of  an  end  item  [Ref:l].  However,  to  be  fully 
effective,  provisioning  must  be  a  cooperative  series  of  scheduled  events 
between  the  customer  (Military  user)  and  the  supplier  (Defense  Logistics 
Agency) . 


C.  The  Study. 

1.  Reason .  To  assess  the  effectiveness  of  current  DLA  provisioning 
policies,  the  DLA  Weapons  System  Support  Office  (DWSSO)  requested  that  the  DLA 
Operations  Research  and  Economic  Analysis  Office  (DLA-LO)  conduct  an  analysis 
of  DLA  managed  provisioning  items. 

2.  Scope .  The  scope  of  this  study  encompasses  provisioning  items 
managed  at  the  following  DLA  Supply  Centers  (DSCs): 

Defease  Construction  Supply  Center  (DCSC) 

Defense  Electronics  Supply  Centei.  (DESC) 

Defense  General  Supply  Center  (DGSC) 

Defense  Industrial  Supply  Center  (DISC) 

A  more  detailed  description  of  these  items  will  be  provided  in  paragraph  III, 
Data  Base  Requirements. 

3.  Objective  .  The  intent  of  this  study  was  to  determine  the 
magnitude  of  the  impact  at  the  commodity  level  of  using  subsequent  provisioning 
(follow-on  or  reprovisioning)  requests  from  the  Military  Services  when 
computing  initial  stock  levels  for  new  items.  Appendix  A  contains  the  study 
plan  that  was  jointly  developd  with  the  DWSSO  to  accomplish  this  objective. 
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M)DEL  DESIGN. 


II . 

A.  System  Description  .  The  document  which  the  Military  Services 
utilize  to  communicate  a  specific  provisioning  requirement  for  an  item  to  a  DSC 
is  called  a  Supply  Support  Request  (SSR).  Two  important  entries  on  the  SSR  are 
the  retail  quantity  and  the  replenishment  quantity.  These  quantities  are  the 
primary  basis  for  determining  the  Initial  stocks  of  an  item  to  be  procured. 
The  Standard  Automated  Materiel  Management  System  (SAMMS)  logic  related  to  this 
process  is  discussed  in  detail  in  Chapter  38,  New  Item  Procedures,  and  Chapter 
39,  Provisioning  Procedures,  of  the  DLA  Supply  Operations  Manual  [Ref:3]. 
Currently,  the  Services  are  only  allowed  to  submit  forecasted  requirements 
based  on  the  supported  end  items  deployment  schedule  and  use  for  the  first  year 
after  the  date  of  primary  operational  capability  (POC)  {Ref:4). 

The  retail  quantity  is  Intended  to  represent  the  quantities  needed  to  initially 
stock  or  increase  levels  at  the  activities  supporting  the  end  item  being 
provisioned.  This  requirement  is  considered  a  nonrecurring  demand. 
Conversely,  the  replenishment  quantity  is  defined  as  the  number  of  items  that 
are  estimated  to  be  required  for  replacement  of  pipeline  stocks  Issued  during 
the  first  year  of  operation  of  the  end  items  being  provisioned.  Using  these 
quantities  from  the  initial  SSR,  initial  stock  levels  are  established  for  the 
item.  These  levels  are  limited  to  be  no  greater  than  the  estimated  procurement 
leadtime  requirement  (PALT)  plus  a  3'-month  combination  Procurement  Cycle/Safety 
Level  requirement.  The  Intent  of  this  policy  is  to  minimize  the  possibility  of 
over  procurement  of  a  support  item  which,  at  this  point,  has  only  an  estimated 
demand  on  which  to  base  initial  stock  levels.  This  constraint  is  maintained 
during  the  demand  development  period  (DDP)  or  until  actual  demands  exceed 
forecasted  demand.  The  DDP  for  DLA  is  the  2-year  period  subsequent  to  the  Date 
Repair  Parts  Required  (DRPR)  as  Indicated  in  the  SSR.  Subsequent  SSR  retail 
and  replenishment  quantities  are  used  separately  to  revise  the  Quarterly 
Forecasted  Demand  (QFD)  or  Numeric  Stock  Objective  (NSO).  Retail  requirements 
are  compared  to  the  existing  Procurement  Cycle  Quantity.  If  the  retail 
quantity  is  greater,  the  difference  is  considered  as  an  additive  requirement. 
In  the  case  of  follow-on  SSR  replenishment  quantities,  adjustments  are  normally 
only  made  if  there  is  a  significant  increase  in  forecasted  demands  validated  by 
the  item  manager  [Ref:5].  Since  subsequent  SSRs  from  the  Military  Services  are 
transmitted  and  evaluated  individually,  a  cumulative  item  requirement  is  not 
visible  to  the  item  manager  at  any  specific  point  in  time. 

B.  Analytical  Framework  .  In  an  effort  to  evaluate  the  magnitude  of 
requirements  being  submitted  by  the  DLA  customers  (i.e..  Military  Services),  a 
methodology  was  developed  to  accumulate  item  requirements  and  compare  them  to 
actual  demand  patterns  on  a  quarterly  basis  over  time.  By  design,  the 
methodology  contains  specific  assumptions  and,  consequently,  has  inherent 
limitations. 

To  model  a  typical  DDP  for  a  new  item,  a  2-year  time  period  was  delineated, 
beginning  with  the  item's  Date  Management  Assumed  (DMA).  The  initial  SSR  was 
defined  as  the  SSR  with  a  DRPR  date  closest  to  but  not  earlier  than  the  DMA 
date.  All  subsequent  SSRs  with  DRPR  dates  occurring  within  a  2-year  period 
thereafter  were  accumulated  in  an  intermediate  work  file. 


The  allocation  of  the  retail  and  replenishment  quantities  was  another  area 
which  required  clarification.  It  was  assumed  that  100  percent  of  the  retail 
quantity  of  an  SSR  would  be  placed  In  the  quarter  In  which  Its  DRPR  date  was 
scheduled.  The  reasoning  for  this  decision  was  that  although  the  actual 
consumption  of  these  Items  would  probably  occur  beyond  the  DRPR  date,  the 
purpose  of  the  retail  requirement  Is  to  Initially  fill  the  supply  pipeline 
below  the  wholesale  level.  Therefore,  It  was  assumed  that  the  entire  quantity 
would  be  needed  on  the  DRPR  date.  For  the  replenishment  quantity,  proratlon 
was  done  on  a  uniform  basis  with  25  percent  of  the  total  requirement  being 
apportioned  per  quarter  on  a  recurring  basis  beginning  with  the  DRPR  quarter. 

C.  Methodology  .  To  obtain  a  comparison  of  actual  demand  and  forecasted 
requirements,  a  uniquely  designed  database  consisting  of  selected  data  fields 
from  multiple  data  files  was  developed.  This  was  done  for  each  of  the  four 
hardware  commodities;  electronics,  general,  construction,  and  Industrial. 
Once  the  provisioning  Items  were  Identified  among  the  total  population  summary, 
statistics  were  calculated  to  determine  patterns  or  trends  between  or  within 
commodities. 

To  Isolate  new  provisioning  Items,  two  criteria  were  established.  First,  the 
Item's  Age  of  Item  Code  (AIC)  was  checked  for  code  "N,”  which  Indicates  that 
the  Item  Is  "new”  to  the  system.  The  second  requirement  used  to  categorize  an 
Item  as  a  new  Item  was  to  verify  that  the  DMA  date  was  after  1  January  1983. 
Only  If  an  Item  met  both  of  these  criteria  was  It  considered  a  new  Item  and 
used  In  the  subsequent  analysis.  By  separating  the  new  Items  from  the 
established  Items,  It  was  possible  to  compare  provisioning  requirements  from 
Che  SSRs  to  the  actual  demand  from  the  item  records. 

Two  different  item  characteristics,  units  of  Issue  and  acquisition  dollar 
value,  were  selected  to  be  used  to  measure  the  differences  between  the  SSR 
forecasts  and  the  actual  demands.  Units  of  Issue,  although  a  nonstandard 
measure  from  Item  to  Item,  Is  one  of  the  critical  data  elements  In  terms  of  the 
total  quantity  requisitioned  and  Is  a  common  frame  of  reference  for  obtaining 
an  aggregate  assessment  of  the  validity  of  Item  forecasts.  However, 
acquisition  value,  cooputed  as  the  Item's  unit  price  times  its  SSR  quantity  or 
demand  quantity,  provided  a  more  accurate  measure  of  the  difference  between  the 
forecasted  and  actual  quantities. 

Ill .  DATA  BASE  REQUIREMENTS. 

A.  Provisioning  Data  .  To  collect  and  accumulate  the  provisioning 
requirements,  the  Provisioning  Control  History  File  (PCHF)  was  requested  from 
the  Office  of  Data  Processing  (DASC-D)  at  DLA  Headquarters.  Appendix  B 
contains  a  description  and  record  layout  of  this  file  which  Is  maintained  at 
the  commodity  level.  Each  record  In  this  file  represents  a  SSR.  Using  the 
SSR's  date  of  request  (DOR)  as  a  basis,  the  time  period  covered  by  the  files 
received  from  DASC-D  ranged  from  September  1982  to  September  1984.  Copies  of 
these  files  were  generated  on  magnetic  tape  and  cataloged  on  the  mainframe  IBM 
computer  located  at  Richmond,  Virginia.  The  labeling  convention  used  for  these 
data  sets  Is  as  follows: 

FLO. ARNETT. PROV.X 

where:  X  represents  the  commodity  (l.c.  ,  C,  E,  G,  I). 
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®*  Item  Data  .  To  obtain  demand  data  at  the  national  stock  number 
(NSN)  level,  the  master  Item  data  files  from  the  DLA  Inventory  Data  Bank 
(DIDB)  were  used.  These  files  contain  recurring  and  nonrecurring  quarterly 

demand  quantities  for  the  current  quarter  as  well  as  for  the  three  previous 

quarters.  The  record  layout  for  this  file  is  contained  in  Appendix  C.  The 

labeling  convention  used  for  these  data  sets  is  as  follows: 

OOR.ITEM.YYQ.X 

where;  YY  -  represents  the  calendar  year  (l.e.,  84) 

Q  -  represents  the  quarter  (l.e.,  1,  2,  3,  4) 

X  -  represents  the  commodity 

Selected  data  elements  from  both  the  provisioning  and  the  item  files  were 
extracted  to  create  a  combined  fixed  block  record  246  bytes  in  length.  The 
complete  record  layout  of  the  new  datasets  is  contained  in  Appendix  D.  The 

labeling  convention  used  for  these  data  sets  is  as  follows: 

FLD.FJP.PROV.CMBYX 

where:  Y  -  is  "4”  for  the  case  of  using  Initial  SSR  requirements 

-  is  ”2"  for  the  case  of  using  follow-on  SSR  requirements 

X  -  represents  the  commodity 

The  automated  process  which  created  these  files  will  be  explained  in  the  next 
section.  Model  Computerization. 

1 V .  tPDEL  OMPUTERIZATION. 

A.  Programming  Languages .  Due  to  the  required  sorting  and  matching  of 
extremely  large  databases,  GDBOL  was  determined  to  be  an  appropriate  computer 
language.  To  analyze  the  data  sets  which  were  created  from  the  computer  model, 
the  Statistical  Analysis  System  (SAS)  language  and  the  LOTUS  1-2-3  software  on 
an  IBM  personal  computer  were  utilized.  The  following  paragraphs  will  explain 
how  these  languages  were  specifically  used  throughout  the  analysis. 

B.  Programming  Execution  .  To  develop  the  required  data  bases,  COBOL 
extraction  programs  were  written.  A  logic  flow  diagram  describing  this  process 
is  shown  in  Figure  1.  The  first  step  of  this  process  was  to  extract  the 
needed  data  elements  from  the  provisioning  file. 


Ten  data  elements  were  selected  from  this  file  to  be  used  In  the  analysis: 


Data  Element 

Field  Length 

Position  In  Record 

1. 

Activity  Code 

2AN 

1-2 

2. 

Date  of  Request 

4N 

6-9 

3. 

Date  Repair  Parts  Required 

5N(3P)* 

52-54 

4. 

Weapon  System  Designator 

2AN 

76-77 

5. 

Replacement-NSN 

13  AN 

110-122 

6. 

Retail  Quantity 

5N(3P)* 

123-125 

7. 

Acquisition  Advice  Code 

IAN 

127 

8. 

Replenishment  Quantity 

5N(3P)* 

128-130 

9. 

Action  taken  code 

2AN 

306-307 

0. 

Service  Code 

IAN 

329 

^Indicates  original  layout  has  a  "packed"  data  element. 


A  copy  of  the  COBOL  program  used  to  accomplish  this  requirement  can  be  found  at 
Appendix  E,  pages  E-1  to  E-3.  The  data  set  name  for  this  program  is 
FLO .ARNETT .ASM (PR02 ) .  A  second  COBOL  program  was  written  to  select  the  item 
data  from  the  DIDB  item  data  file  and  merge  It  with  the  provisioning  data. 
This  program  Is  called,  FLO . ARieTT.OOBOL(PROV) ,  and  a  listing  of  Its  computer 
code  Is  contained  In  Appendix  E,  pages  E-A  to  E-9. 

Twenty-one  data  elements  from  the  600  byte  length  Item  record  were  Identified 
as  needed  for  the  analysis.  The  names  of  these  elements,  their  field  length, 
and  position  are  listed  below: 


Data  Element 

Field  Length 

Position  In  Record 

DLA  Supply  Center  (DSC) 

1  AN 

1 

National  Stock  Number  (NSN) 

13  AN 

2-14 

Supply  Status  Code  (SSC) 

1  AN 

48 

Standard  Unit  Price  (UP) 

9  N 

55-63 

Age  Item  Code  (AlC) 

1  AN 

98 

Item  Category  Code  (ICC) 

1  AN 

99 

Administrative  Leadtime  (ALT) 

3  N 

146-148 

Production  Leadtime  (PLT) 

3  N 

149-151 

Manage  Assume  Date  (DMA) 

5  N 

165-169 

Backorder  Quantity  (BOQTY) 

9  N 

204-212 

Numeric  Stock  Objective  (NSO) 

9  N 

270-278 

Quarterly  Forecasted  Demand  (QFD) 

9  N 

286-294 

Quarterly  Forecasted  Demand,  New  (QFDN) 

9  N 

295-303 

1st  Qtr,  Nonrecur  Demand  Qty  (NDQ) 

9  N 

434-442 

2nd  Qtr,  Nonrecur  Demand  Qty  (NDQ) 

9  N 

443-451 

3rd  Qtr,  Nonrecur  Demand  Qty  (lOQ) 

9  N 

452-460 

4th  Qtr,  Nonrecur  Demand  Qty  (NDQ) 

9  N 

461-469 

Ist  Qtr,  Recur  Demand  Qty  (RDQ) 

9  N 

490-498 

2nd  Qtr,  Recur  Demand  Qty  (RDQ) 

9  N 

499-507 

3rd  Qtr,  Recur  Demand  Qty  (RDQ) 

9  N 

508-516 

4th  Qtr,  Recur  Demand  Qty  (RDQ) 

9  N 

517-525 

The  first  quarter  data  fields  from  the  GOR.ITEM  commodity  files  for  Fiscal  Years 
(FY)  84  and  85  were  used  to  collect  the  eight  successive  quarters  of  demand 
data  needed  for  the  analysis.  The  matrix  In  Figure  2  indicates  the  demand  data 
contained  In  each  of  these  files. 

Figure  2.  Data  Source  Matrix  for  Quarterly  Demand  Data 


Both  the  recurring  as  well  as  the  nonrecurring  demand  quantities  were 
accumulated  by  NSN  from  these  files.  This  was  accomplished  in  two  phases.  The 
first  phase  collected  the  first  four  quarters  (2/83  thru  1/84}  of  demand  using 
the  FLO.ARIGTT.(X)BOL(PROV)  program.  Then  using  only  those  Items  Identified  In 
the  first  phase,  a  sllghty  modified  version  of  this  program  called 
F  LO.  ARNETT.  03  BO  L(  PROX ) ,  was  used  to  select  the  final  four  quarters  of  demand 
data.  The  code  for  this  COBOL  program  is  located  in  Appendix  E  on  pages  £-10 
through  E-15. 

C.  Validation  Procedures  .  Each  program  used  In  the  analysis  was 
separately  validated.  Using  the  data  files  for  the  DGSC  the  results  from  each 
of  the  Intermediate  steps  were  reviewed  for  both  computational  as  well  as 
logical  accuracy.  Individual  records  from  the  new  data  sets  were  printed  and 
matched  against  the  proposed  file  layout  to  ensure  that  data  fields  were 
properly  aligned  with  the  desired  formats.  Intermediate  counters  were  placed 
In  the  program  to  verify  total  record  counts.  Invalid  record  counts,  and  output 
record  counts.  These  counters  provided  an  audit  trail  throughout  the  program 
so  that  program  errors  could  be  quickly  Isolated  and  resolved. 

V.  FI NDINGS. 

A.  Defense  General  Supply  Center  (DGSC) .  For  this  Center,  12,372  NSNs 
were  sampled.  For  each  quarter  from  2nd  Qtr  of  1983  to  Ist  Qtr  of  1985  the 
actual  demand  quantities  and  the  estimated  demand  quantities  were  coiiq>ared. 
The  statistical  results  from  the  SAS  program  for  the  General  commodity  are 
contained  In  Appendix  F,  pages  F-1  to  F-4.  The  initial  SSR  requirements 
experienced  exceeded  the  total  actual  demands  In  six  of  the  eight  quarters. 
The  standard  deviation  of  the  actual  demand  quantities  exhibited  an 
exponentially  Increasing  pattern.  The  correlation  coefficient  matrix  did  not 
display  any  significant  relationships  between  forecasted  quantities  and  actual 
demand  quantities. 


All  pairwise  correlations  greater  than  .7  from  the  matrix  are  shown  below: 


Quarter 

Quarter 

SDQ843 

SDQ844 

SD^44 

SDQ851 

SDQ843 

SDQ851 

SDQ842 

SD^44 

SDQ842 

SDQ851 

SD^42 

SD^43 

SDQ832 

SDQ833 

SDQ841 

SDQ844 

ADQ844 

ADQ851 

SDQ841 

SDQ851 

SDQ841 

SDQ843 

ADQ832 

ADQ833 

SDQ834 

SDQ844 

SDQ834 

SDQ851 

SDQ834 

SDQ843 

Correlat ion  Coefficient 

.98375 
.97347 
.95808 
.94868 
.92393 
.91750 
.78644 
.78413 
.77487 
.7  6359 
.75824 
.75146 
.73514 
.71595 
.71095 


where:  SDQ  is  total  provisioning  estimates  (SSRs  only) 

ADQ  is  total  actual  demand 

Unfortunately,  the  highest  correlations  were  between  estimated  quantities  (SDQ 
values)  in  the  most  recent  quarters  and  not  between  actual  and  forecasted 
values  for  the  same  quarter.  This  indicates  that  requirements  for  these  items 
appear  to  be  stabilizing  at  a  steady-state  level.  A  variety  of  factors  could 
be  the  cause  of  this.  One  explanation  could  be  stabilization  of  the  end  item 
force  structure  or  the  use  of  some  other  procedure  such  as  special  program 
requirement  (SPR)  requests  being  used  as  a  surrogate  to  provisioning.  This 
observation  seems  to  support  the  cutrent  SAMMs  procedures  which  uses  the  most 
recent  demand  quantities  in  the  computation  of  the  QFD. 

After  the  additional  SSR  requirements  were  incorporated  into  the  provisioning 
requirements,  the  SAS  program  was  again  executed.  Once  again  in  only  two 
cases,  4th  Quarter/84  and  1st  Quarter/85  (see  page  F-3),  did  the  actual  demands 
exceed  the  forecast.  Next,  a  conqparison  of  the  estimated  demand  quantities 
from  the  initial  run  and  this  subsequent  run  were  made.  A  major  finding  from 
this  analysis  showed  that  the  requirements  from  the  initial  SSR  accounted  for 
90  percent  of  the  total  requirement.  The  correlation  coefficient  matrix 
displayed  results  similar  to  the  first  run.  The  resultant  statistics  for  this 
computer  run  are  contained  in  Appendix  F,  pages  F-3  to  F-4. 

®*  Defense  Construction  Supply  Center  (DCSC)  .  The  sample  size  for 
this  commodity  was  24 ,845  items.  In  every  quarter  estimated  demand  far 
exceeded  actual  demand.  As  in  the  case  of  the  general  commodity,  the  standard 
deviations  of  the  estimated  values  were  relatively  uniform,  while  standard 
deviations  of  the  actual  values  showed  a  nonlinear  Increase  over  time.  The 
stability  of  the  standard  deviation  of  the  estimated  values  indicates  that  the 
estimating  techniques  being  used  are  applied  consistently  quarter  to  quarter; 
however,  for  the  actual  demand  quantities,  it  reveals  an  erratic  pattern  caused 
by  a  wide  range  of  units  demanded. 


The  correlation  matrix  values  for  predicting  actual  demand  greater  than  .7  were 
as  follows: 


Quarter  Correlation  Coefficient 

ADQ8A3  .85046 
ADQ851  .73614 
ADQ851  .80753 

When  the  follow-on  SSR  requirements  were  added  and  the  SAS  program  rerun,  the 
disparity  between  actual  and  estimated  values  Increased.  For  the  construction 
commodity,  initial  SSR  requirements  accounted  for  over  87  percent  of  the  total 
requirements. 

Defense  Electronics  Supply  Center  (DESC)  .  There  were  38,460  Items 
contained  In  the  DESC  saiiq>le.  When  using  the  initial  SSR  requirements,  the 
aggregate  level  statistics  continued  to  show  a  large  variation  between  the 
estimated  and  actual  quantities  required.  In  every  quarter,  except  the  Ist 
Qtr/1985,  the  estimate  from  the  initial  SSR  was  substantially  larger  than  the 
actual  requirements.  The  correlation  matrix  did  not  reveal  any  strong 
predictors  for  the  actual  demand  quantities.  The  results  from  the  initial  run 
can  be  found  In  Appendix  F,  pages  F-9  thru  F-10.  When  the  follow-on  SSR 
requirements  were  added,  marginal  increases  were  observed  in  each  quarter.  For 
DESC,  the  initial  SSR  requirements  accounted  for  76.9  percent  of  the  total 
requirement.  The  correlation  matrix  using  the  follow-on  requirements  did  not 
yield  an  Improvement  between  any  of  the  actual  demand  quantities  and  the  other 
quarterly  values.  The  statistical  output  using  follow-on  SSRs  is  shown  on 
pages  F-11  to  F-12 . 

D.  Defense  Industrial  Supply  Center  (DISC)  .  This  commodity  had  a 
sample  size  of  37,217  NSKs.  In  seven  of  the  eight  quarters,  the  requirements 
from  Initial  SSR  requests  exceeded  the  actual  demands.  None  of  the 
coefficients  from  the  correlation  matrix  for  the  actual  demand  quantities  were 
greater  than  .5,  which  as  in  the  case  of  the  other  commodities.  Indicated 
little  or  no  predictability  between  the  estimated  and  actual  quantities.  When 
the  program  was  rerun  with  the  follow-on  requirements,  all  of  the  estimated 
quarterly  quantities  were  greater  than  the  actual  demands.  Initial  SSRs 
accounted  for  90  percent  of  the  total  DISC  requirements.  The  output  reports 
for  the  DISC  commodity  can  be  found  from  pages  F-13  to  F-16. 

E.  Summary .  A  total  of  112,894  provisioning  NSNs  for  all  Centers  were 
used  In  this  analysis.  The  SSR  requirements  for  the  four  DSCs  totaled 
12,352,210  units  of  Issue  of  which  10,950,660  (88.7  percent)  were  submitted  on 
the  first  SSR.  The  actual  demand  quantity  for  the  two  year  period  totaled 
4,139,991.  Percentagewise,  Initial  SSR  requirements  for  the  two  year  period 
exceeded  actual  demands  by  165  percent.  When  the  additional  requirements  from 
the  follow-on  SSRs  were  added,  this  percentage  increase  to  198  percent.  In  30 
of  the  32  quarters.  It  was  observed  that  when  the  follow-on  SSRs  were 
considered,  estimated  quantities  were  greater  than  actual  demand  quantities.  A 
commodity  to  commodity  comparison  is  shown  in  Table  III  Indicating  the 
percentage  over forecasted  by  SSR  submittals. 


Quarter 

ADQ842 
AD  ^42 
ADQ843 


Table  III.  Actual  Demand  vs.  Forecasted  SSR  Requirements 

(Units  of  1 ssue) 


Commodity 

Actual 

Demand 

Initial 

SSR 

Percent 

Total 

SSR 

Percent 

Construction 

416,338 

532  ,959 

(+  28Z) 

607  ,793 

(+  46Z) 

Electronics 

457,867 

823,944 

(+  80Z) 

1,070,596 

(+134Z) 

General 

314,120 

1,598,930 

(+409Z) 

1 ,823  ,824 

(+481Z) 

Industrial 

2  ,951,666 

7  ,994,827 

(+171Z) 

8,849,997 

(+199Z) 

Total 

4,139  ,991 

10  ,950,660 

(+165Z) 

12  ,352  ,210 

(+198%) 

A  graphical  representation  of  the  estimated  versus  actual  values  In  terms  of 
units  of  Issue  by  commodity  Is  shown  In  Figure  3.  In  terms  of  units  of  Issue, 
DISC  received  the  greatest  requirements  for  provisioning  items;  however,  the 
total  dollar  value  represented  by  these  requirements  was  the  smallest  of  the 
four  Centers  analyzed. 


When  the  dollar  values  of  the  initial  SSR  requirements  and  the  follow-on 
requirements  were  compared,  there  was  a  significant  decrease  in  the  difference 
between  the  two  categories  as  compared  to  the  cost  of  items  actually  demanded. 
As  in  the  case  of  units  of  issue,  similar  statistics  for  acquisition  value,  as 
shown  in  Table  IV,  were  calculated. 

Table  IV.  Actual  Demand  vs.  Forecasted  SSR  Requirements 
(Acquisition  Value) 

$  Value 


Commodity 

$  Value 
Actual 

$  Value 

Initial  SSR  (%) 

Follow-On 

SSR 

$  Value 

Follow-On  SSR  (%) 

Construction 

190.7 

1039.8 

(+445%) 

144.8 

1184.6 

(+521%) 

Electronics 

181.6 

935.7 

(+415%) 

207.6 

1143.3 

(+529%) 

General 

177.2 

664.7 

(+275%) 

3.8 

668.6 

(+277%) 

I ndustrlal 

120.9 

372.5 

(+208%) 

45.1 

417.5 

(+245%) 

Total 

670.4 

3012.7 

(+349%) 

401.3 

3414.0 

(+409%) 

These  dollar 

values  In 

terms  of 

millions  of 

dollars  by 

commodity  are  shown 

Figure  4 . 
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“  ACTUAL  DEMANDS 

-  INITIAL  SSR  REQUIREMENT 

-  TOTAL  SSR  REQUIREMENT 


TOTM.  UNITS  OF  ITEMS  DEHMOED 
OVER  THE  TVO  YEAR  PERIOD,  2/83  -  1 


Although  this  analysis  provides  only  a  macrolevel  view  of  the  provisioning 
process,  a  distinct  pattern  within  and  among  commodities  was  evident. 
Provisioning  estimates  were  consistently  greater  than  the  actual  demand 
experienced  for  the  four  DLA  commodities  Investigated.  The  result  of  including 
the  follow-on  or  reprovisioning  requirements  continued  to  increase  rather  than 
decrease  the  percent  error  between  the  two  values.  Using  the  correlation 
coefficient  matrices,  a  statistically  significant  relationship  was  not  observed 
between  actual  quarterly  demand  values  and  estimated  quarterly  demand  values. 
However,  in  some  cases,  the  high  correlation  obtained  between  successive 
quarters  of  actual  demand  seems  to  endorse  the  current  methodology  used  by 
SAMMS  to  compute  the  QFD  value. 

VI.  RECOMMENDATIONS  .  As  described  in  the  study  plan  at  Appendix  A,  the 
objective  of  this  study  was  to  assess  the  impact  of  follow-on  or  reprovlsionlng 
SSR  requirements  on  the  accuracy  of  provisioning  estimates.  First,  it  should 
be  highlighted  that  even  in  the  case  of  initial  SSR  forecast  accuracy,  there  is 
an  apparent  tendency  to  overforecast  the  actual  usage  experienced  for  new 
provisioning  items.  The  impact  of  subsequent  SSRs  shown  on  these  estimates  was 
approximately  a  20  percent  Increase  in  the  forecasted  requirement.  The  model 
developed  for  this  study  was  successful  in  collecting  the  data  needed  and 
performing  the  analysis  requested  by  the  DWSSO. 

The  visibility  of  provisioning  requirements  gained  from  this  study  provides 
many  additional  areas  for  more  detailed  analysis.  The  data  bases  that  have 
been  constructed  from  this  project  could  be  used  for  these  follow-on  efforts. 
Recommended  items  for  investigation  could  Include  but  would  not  be  limited  to; 

A.  Item-level  analysis  of  each  commodity  should  be  conducted  to  identify 
the  percentage  of  items  that  is  being  overforecasted,  under¬ 
forecasted,  or  accurately  forecasted.  This  analysis  should  also 
Include,  as  a  minimum,  stratification  of  items  into  subgroups  based 
on  their  cost,  weapon  system  criticality,  and  requesting  Military 
Service. 

B.  The  construction  and  industrial  commodities  should  be  given  special 
attention  because  of  their  disproportionate  share  of  the  provisioning 
activity.  This  should  be  conducted  in  coordination  with  the 
appropriate  Operations  Research  Offices  at  these  Centers. 

C.  Integrate  key  data  elements  from  the  Provisioning  Control  History 
File  into  the  DLA  Inventory  Data  Bank  to  ensure  that  a  historical 
file  of  SSR  requests  older  than  two  years  is  available  for  future 
analysis  and  access. 

D.  Newly  provisioned  items,  as  evidenced  by  the  results  of  this  study, 
are  not  experiencing  the  demand  which  has  been  predicted  for  them  by 
the  Military  Services.  Although  individual  items  may  experience 
excessive  demands,  the  aggregate  statistics  collected  by  this  study's 
analysis  does  not  support  adoption  of  a  blanket  policy  of  using  total 
forecasted  SSR  requirements.  Development  of  a  stochastic-type 
simulation  model  to  evaluate  alternative  provisioning  policies  would 
be  the  appropriate  tool  to  identify  specific  policies  for  new  items. 


APPENDIX  A 


Study  Plan 
(Revised) 

Estimating  Provisioning  Requirements 
DLA-IX)  Project  #3033 


I.  Background ;  Currently,  when  a  new  Item  Is  provisioned  in  the  DoD 
Inventory,  a  supply  support  request  (SSR)  is  submitted  by  the  using  Service  In 
accordance  with  DoDI  4140.42.  One  objective  of  the  SSR  Is  to  provide  the 
managing  TCP  requirements  Information  to  establish  Item  management  levels. 
This  data  consists  of  the  retail  and  replenishment  quantities  for  the  item. 

The  retail  quantity  Is  defined  as  the  number  of  units  of  an  Item  that  are 
needed  to  fill  the  Initial  supply  pipeline.  This  quantity  Is  based  on 
supporting  the  weapon  systems  which  are  fielded  during  the  year  after  the 
Initial  operational  capability  (IOC)  date.  The  replenishment  quantity  Is 
defined  as  the  number  of  Items  that  are  estimated  to  be  required  on  an  annual 
basis  to  Initially  establish  wholesale  levels.  Both  of  these  quantities  are 
used  to  establish  the  Initial  levels  of  stock  for  the  NSN  In  the  SAMMS. 

When  an  Item  Initially  enters  the  DLA  system,  the  Initial  quarterly  forecasted 
demand  (QFD)  in  the  SAMMS  is  determined  taking  the  replenishment  quantity  and 
dividing  It  by  4.  Since  this  quantity  Is  based  on  requirements  expected  during 
the  first  year  after  IOC,  the  result  has  been  backorders  for  some  provisioning 
Items.  The  Item  manager  (IM)  Is  then  forced  to  make  ’’spot"  buys  for  these 
Items  at  a  premium  cost. 

After  the  NSN  becomes  an  "established  item,"  the  retail  quantity  on  follow-on 
SSRs  is  compared  to  the  procurement  cycle  period  (PCP)  quantity.  If  the  retail 
quantity  Is  greater  than  the  PCP  quantity,  then  the  difference  in  the  two 
quantities  Is  procured.  By  using  this  procedure,  supply  availability 
percentages  are  being  maintained  at  acceptable  levels;  however,  there  is  a 
desire  to  determine  If  other  estimating  techniques  or  management  procedures 
could  be  used  to  Increase  supply  availability  within  current  budget  constraints. 

II .  Objective; 

A.  Compare  actual  demand  data  to  provisioning  estimates  of  selected  DLA 
items  to  determine  the  accuracy  of  currently  used  forecasting  techniques. 

B.  Assess  the  Impact  of  follow-on  SSRs. 

III.  Scope : 

A.  This  study  will  specifically  Investigate  the  appropriateness  and 
feasibility  of  using  provisioning  data  contained  on  follow-on  SSRs  to  predict 
an  Items'  demand  pattern. 

B.  A  representative  cross  section  of  DLA-managed  Items  from  selected 
I  CPs  will  be  examined. 


IV.  Study  Approach; 


A.  Compare  actual  demand  data  to  provisioning  estimates  of  selected  DLA 
items  to  determine  the  accuracy  of  currently  used  forecasting  techniques. 

1.  Review  current  DLA  provisioning  policy. 

Examine  the  SAMMS  requirements  computations  used  for  provisioning 

items. 


2.  Survey  existing  or  on-going  research  relating  to  the  DoD 
wholesale  provisioning  process. 

3.  Evaluate  currently  used  provisioning  techniques. 

a.  Obtain  actual  provisioning  data  from  the  Provisioning  Control 
History  File  (PCHF)  from  selected  ICPs. 

b.  Collect  actual  demand  data  from  the  Supply  Control  File 
(SCF}for  these  NSNs. 

c.  Compare  the  actual  demand  experienced  for  these  items  to  the 
provisioning  requirements  that  were  originally  estimated  by  the  Services  on  a 
quarter  by  quarter  basis. 

d.  Perform  statistical  tests  to  determine  if  a  significant 
difference  exists  between  the  actual  and  the  estimated  forecast. 

B.  Assess  the  Impact  of  follow-on  SSRs  on  an  item  level  basis. 

1.  Merge  selected  data  fields  from  the  PCHF  and  DIDB  item  data  files 
at  an  NSN  level  by  commodity. 

2.  Utilize  the  Statistical  Analysis  System  (SAS)  to  generate 
descriptive  statistics  of  provisioning  estimates  from  follow-on  SSRs. 

C.  Final  report. 

1.  Prepare  final  draft  study  report  and  information  briefing. 

2.  Present  briefing  on  study  findings  to  DLA-OP. 


V.  Responsibilities ; 

A.  Study  Sponsor ;  The  Logistics  Program  Division  of  the  Directorate  of 
Supply  Operations  (DLA-OP)  is  the  sponsor  for  this  study. 


1.  Point  of  Contact  is  Mr.  Mike  Pouy,  primary,  DWSSO  (x47975). 

2.  Sponsor  will: 


a.  Assist  in  determining  the  appropriate  field  activities  of  DLA 
to  gather  study  information. 


b.  Provide  needed  interpretations  to  DLA  provisioning  policies 
as  outlined  in  DdDI  4140.42. 


A-2 


;✓  / 


c.  Assise  in  developing  and  verifying  the  study  assumptions, 
methodology,  and  results. 


data. 


d.  Assist  in  the  collection  of  needed  provisioning  and  demand 


B.  Performing  Organization;  The  Operations  Research  and  Economic 
Analysis  Office  (DLA-LO)  is  the  developer  of  this  study. 

1.  Point  of  contact  is  Captain  Gary  W.  Arnett,  USAF,  DLA-DORO  (Team 
F),  Ext.  46183. 

2.  Analyst  will: 

a.  Determine  program  resources,  develop  approach,  and  complete 
study  objectives. 

b.  Provide  monthly  status  report  by  lOM  to  sponsor. 


c.  Develop  final  report  and  give  briefing. 


VI .  Schedule : 


Milestones 


Estimated  Completion 
Date 


A.  Review  DLA  provisioning  policy 

B.  Survey  of  on-going  research 

C.  Fact  finding/evaluate  current  policies 

D.  Finalize  study  objectives 

E.  Objective  II A  and  IIB 


15  Jul  1984 


15  Aug  1984 
15  Sep  1984 
22  Sep  1984 


(1)  Develop  methodology 

(2)  Perform  analysis 

(3)  Document  results 


15  Dec  1984 
31  Jan  1985 
15  Feb  1985 


G.  Prepare  final  draft  report  and  briefing 
for  internal  review 


28  Feb  1985 


H.  Publish  final  report  and  present  briefing 
to  DLA-OP 


15  Mar  1985 


VII .  Costs  and  Benefits: 

A.  Costs ;  An  estimated  level  of  effort  of  6.0  analyst  staff-months  will 
be  expended  by  DLA-IO  on  this  study.  Additionally,  computer  programming  and 
administrative  resources  will  be  required  by  DLA-LO  to  complete  this  project. 


■  a'*  .  K 


B.  Benefits :  Findings  from  this  study  will  provide  an  assessment  of 
currently  used  provisioning  criteria.  These  results  will  provide  a  basis  for 
future  efforts  directed  at  improving  the  effectiveness  of  DLA  provisioning 
policies. 
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RObERT  L.  SIMS,  Colonel  USAF 
Chief,  Operations  Research  and 
Economic  Analysis  Office 


Chief,  Logistics' Program 


APPENDIX  B 


I 

i  FILE  SUMMARY 

! 

>  FILE  NAME: 


FILE  INDEX  NUMBER: 
PURPOSE: 


I  .  RECORD  SIZE: 

;  BLOCK  SIZE: 

I 

I  ACCESS  METHOD: 


SEQUENCE: 


I 


Provisioning  Control  History  File 
USXTPCHF 

To  provide  for  the  retention  of  Supply  Support 
Requests  up  to  180  days  after  all  decision^ 
have  been  made  as  to  the  support  or  nonsupport 
of  the  item. 

360  Bytes  -  Fixed  Length 

6120  Bytes 

Sequential 

Provisioning  File  Controls  (Activity  Code  F^om 
>  Provisioning  Control  Code  -  Date  of  Request 
-  Itea  Serial  Nunber) 


DATA  ELEMENT 


FIELD  POSniON 

DEFINITION  IN  RECORD 


PVNG-CTL-KEY  A093  FROM  CHA 

15 

AN 

1-15 

ACTY-CD-FR  A072 

2 

AN 

(1-2) 

PVNG-CLT-CD  A082 

3 

AN 

(3-5) 

REQST-DT  A083 

4 

AN 

(6-9) 

ITM-SERNO  A083  CFROM  CXA,  CXB,  CXC) 

6 

AN 

(10-15) 

DLSC  DOCNO  1015  (GENERATED) 

16 

AN 

16-31 

ORGTG-ACTY-CD  U210 

2 

AN 

(16-17) 

SUBMG-ACTY-CD  3720 

2 

AN 

(18-19) 

ESTAB  DT  2310 

5 

AN 

(20-24) 

DLSC-DOC-CTL-SERMO  1000 

7 

AN 

(25-31) 

ORC  A055 

3 

AN 

(25-27) 

FILLER 

4 

AN 

(28-31) 

Die  3920  FROM  SSR 

3 

AN 

32-34 

END^ITM-NSN  A752 

13 

AN 

35-47 

DT-NSN-RQD  A753 

3 

P 

48-50 

(Blank  Field) 

1 

AN 

51 

'4 


DATA  ELEMENT 
DT-RPR-PART-RQD  A754 
DEL-INO  A006 
CONTR-CTL-NO  A703 
WPN-SYS-DES  A473 
MAIKT-LVL-CD  A732 
FSCM  9250  (PRIME) 
SPACE 

ESNTLT-CD  A705 
RIC  AO30 

TY-L0G-REAS(M-CD  A706 
(Blank  Field) 
PCT-ENDITEM-EAST  A761 
CRD-H3  3805 
n-CHN-CD  A736 
ORIG-MSN-PSCN  A739 
REPLM-NSN-PSCN  8878 
RETL-QTY  A762 
IMC  2744 

ACQUIS-ADV-CD  2507 
RPLN-QTY  A735 
SVC-CD  A085  (LIM) 
ACTY-CD-LIM  A047 
SRC-CD  A747 

ui  3050 


eitLU 

DEFINITION 

3  P 

^  AN 

20  AN 


POSITION 
IN  RECORD 

52-54 

55 

56-75 


2  AN 

76-77 

2  AN 

78-79 

5  AN 

80-84 

2  AN 

85-86 

1  AN 

87 

3  an 

88-90 

1  AN 

91 

1  AN 

92 

2  P 

93-94 

1  AN 

95 

1  AN 

96 

13  AN 

97-109 

13  AN 

110-122 

3  P 

123-125 

1  AN 

126 

1  AN 

127 

3  P 

128-130 

^  AN 

131 

2  AN 

132-133 

2  AN 

134-135 

2  AN 

136-137 

DATA  ELEMENT 


FIELD 

DEFINITION 


POSITION 
IN  RECORD 


(Blank  Field) 

1  AN 

138 

DMIL-CD  0167 

1  AN 

139 

MTHD-P(MT-CD  2871 

1  AN 

140 

SPACE 

2  AN 

141-142 

SHLF-LIFE-CD  2943 

1  AN 

143 

PDLT  A051 

2  AN 

144-145 

STD-UP  7075 

4  P 

146-149 

SPACE 

1  AN 

150 

CXB2  DATA 

83  AN 

151-233 

FSCM  9250  (OHIO) 

5  AN 

(151-155) 

REFNO-LOG  3570 

32  AN 

(156-187) 

REPLH.FSCM>CD  3595 

5  AN 

(188-192) 

REPLM.REFNO  A776 

32  AN 

(193-224) 

REFNO-FMT-CD  2920 

1  AN 

(225) 

REFMO-CTGY-CD  2910 

1  AN 

(226) 

REFNO-VARN-CD  4760 

1  AN 

(227) 

DOC-AVAIL-CD  2640 

1  AN 

(228) 

TECH-DATA-DT  A710 

3  P 

(229-231) 

TECH-DATA.JUSm-CD  A711 

1  AN 

(232) 

REFNO-JUSTN-CD  A712 

1  AN 

(233) 

CXF  DATA 

51  AN 

234-284 

ITN-NANE  5000 

47  AN 

(234-280) 

FSC  3990 

4  AN 

(281-284) 

CXK  DATA 

21  AN 

285-305 

SVC-CD  A085 

1  AN 

(285) 

ACTY-CD-USER  A775 

2  AN  ' 

(286-287) 

SVC-CD  A085 

1  AN 

(288) 

ACTY-CD-USER  A775 

2  AN 

(289-290) 

SVC-CD  A085 

1  AN 

(291) 

ACTY-CD-USER  A775 

2  AN 

(292-293) 

SVC-CD  A085 

1  AN 

(294) 

ACTY-CD-USER  A775 

2  AN 

(295-296) 

SVC-CD  A085 

1  AN 

(297) 

ACTY-CD-USER  A775 

2  AN 

(298-299) 

SVC-CD  A085 

1  AN 

(300) 

ACTY-CD-USER  A775 

2  AN 

(301-302) 

SVC-CD  A065 

1  AN 

(303) 

ACTY-CD-USER  A775 

2  AN 

(304-305) 

7i1 


DATA  ELEMENT 


ACTN-TKN-CD  A748 

GENERATED  DATES 
SUBM-DT  A064 
FYL-MAINT-DT  A713 
RCD-DROP-DT  A714 
FUP-DT-30-DAYS  A715 
FUP-DT -45-DAYS  A716 
FUP-Dr-60-DAYS  A717 
SPT-DT-YX  A718 

INDICATORS 
SVC-CD  A085 
COND-CD  2610 
DLSC-IND  A443 
SSC-CHN-IND  A719 
RPT-IND-F217  A783 
FYL-MAINT-CD  A059 
FM1 
FM2 

ROUTG-IND-ZRP-IMC  A721 
ADV-SENT-IND  A722 
PARTMO-IND  A723 
NSN-RQST-IND  A724 
DIC-RCVD-IND-YDR  A725 
TENTV-DIC-IND-YX  A726 
DIC-RCVD-IND-KNA  A727 
INTRGN-IND-ORIG  A729 
ACQUIS-ADV-CD  A159 
RPT-IND-F458  A700 
RPT-IND-F205  A701 
INTRGN-IND-DLSC  A721 

ADV-CD-INTRM 

(Blank  Field) 


FIELD 

DEFINITION 


POSn  ION 
IN  RECORD 


3O6-307 

308-328 

(308-310) 

(311-313) 

(314-316) 

(317-319) 

(320-322) 

(323-325) 

(326-328) 

329-347 

(329) 

(330) 

(331) 

(332) 

(333) 
(334-33:';) 

(334) 

(335) 

(336) 

(337) 

(338) 

(339) 

(340) 

(341) 

(342) 

(343) 

(344) 

(345) 

(346) 

(347) 

348-349 

350-360 


ii 


M3Sn 


Hasn  MVN 


M3sn  awniW'i 


saiQj  arv 


a3sn 


OSS 


anssT 

JO  XINH 


000  SNIJ«M 

j/kuno 


tOSHflN 

aaotoii 

ATIWVJ 


fS{3N  AOlii 


aaquuN 

5JJO^d 


saooo 

I^E!VC*.>U^nW 

aVITTOM 


a.\iI3S3a  THOW 


dMOO  (II£D^ 


iX'QSsa  voLi 


CO  xvo  lOJJ 


CO  VGJ.I  a 


ISWI  XSVOOH' 


anrwA  OMvifl 


CO  acifWD 
OCfUUO 


aivo 

nNsodsia 

is\n 


3£wa 

awnssv 


oacri  MorsiL 
NULL  ssai 


Ta/ao 

uajvs 


KU04 

3TDA0 

anocMd 


SHINCH 

nartn 

ONiivaadO 


SAVQ 

awix  oval 

NOIXOtXKUd 


SAVO 

xiix  oval 

NINOV 


aauinoo 

TVtOIS 

SNIHOVaX 


ooavo  3dAX 


OIS  MOtfdi 


CO  XVIS  CILS 


CD  CCTd  OHdS 


B 


1  JTa)is 


Jiiassa  os 


spoo 

dhojo 

lUSUBJTOCUd 


AXD 

jassv 

aiavnssi 


AXD 

HICOG 

Tiarca 


AXO 

nQto 

aowoAV 


AXO 

Nou/oiaa 


ai'Ai 

ONCAiiO 

xs\n 


§'^(nS 
\o  • 

N  M  II  Cl 
N  _ 

11  SC3 
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OSWWTO 
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3CW5CXUS 
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APPENDIX  D 


RECORD  LAYOUT 


face  1  of  2 


PNEPANEO  HV 


TYPE  LABEL 


RECORD  BLOCKING  FACTOR 

SIZE 

246  18450 


Administrative  Leadtime  (ALT) 


Production  Leadtime  (PLT) 


Date  Management  Assumed  (DMA) 


Backorder  Quantity  (BOQTY) 


Numeric  Stockage  Objective  (NSO) 


Quarterly  Forecasted  Demand  (QFD) 


uarterly  Forecasted  Demand,  New  (QFDN) 


Actual  Demand  Qty  (ADQ832) 


DSC  form 

APR  72 


EDITION  OF  JUL  71  MAY  BE  USED  UNTIL  EXHAUSTED 


RECORD  LAYOUT 

1  PROGRAM  TITLE 

Provisioning /Demand  File 

DATE 

PROGRAM  NUMBER 

file  name 

FLO.FJP.PROV.CMBYX 

TYPE  LABEL 

RECORD  TYPE  (Clue*  Ome) 

_ I  I  CAPO _ □  tape  Fi  OltK 


EIELO  NAME/ DESCRIPTION 


Actual  Dmd  Qty  83/3  (ADO  833 


AD 


"  "  "  84/1 


"  "  "  84/2 


FIELD  LOCATION 
NUMDER  OF  ■' 

FPOM 


PICTURE  I  USAGE 


ft 

fl 

"  84/1 

(SDQ841) 

K 

It 

"  84/2 

(SDQ842) 

<1 

It 

"  84/3 

(SDQ843) 

ft 

If 

"  84/4 

(SDQ844) 

201 


202  210 


211  219 


220  228 


229  I  237 


* 

¥:  FL06515 
*  FLO. ARNETT. ASM 
w  (PR02) 

w 


85.071  14.44.56  » 


« 

* 

» 


//FL06515I  JOB  < 65 1 5 , LO ) , ' ARNETT ' , CLASS=A , MSGCLASS=X , 

//  N0TIFY=FL06515 

//STEP2  EXEC  C0BUCLG,REGI0N=300K, 

//  PARM= ' SIZ=400K , SXR. BUF=50K , CNT=56 ' 

//SYSIN  DD  * 

IDENTIFICATION  DIVISION. 

PROGRAM- ID.  PROVIS. 

AUTHOR.  CAPT.  GARY  ARNETT. 

INSTALLATION.  DLA-LOO. 

DATE-WRITTEN.  JAN  1985. 

DATE-COMPILED. 

SECURITY.  CLASSIFY. 

REMARKS. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  IBM-SYS-3033. 

OBJECT-COMPUTER.  IBM--SYS-3033. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  PCHF  ASSIGN  TO  UT-S-SYS010. 

SELECT  NEU-PROV  ASSIGN  TO  UT-S-SYS020. 
DATA  DIVISION. 


FILE  SECTION. 


FD  PCHF 

LABEL  RECORDS  STANDARD 
RECORDING  MODE  F 
RECORD  CONTAINS  360  CHARACTERS 
BLOCK  CONTAINS  0  CHARACTERS 
DATA  RECORD  IS  SSR-REC. 


01  SSR-REC. 


05 

ACTV-CD 

PIC 

X(2) . 

05 

FILLER 

PIC 

X(3)  . 

05 

DOR 

PIC 

X(4)  . 

05 

FILLER 

PIC 

X(42> . 

05 

DRPR 

PIC 

9(5>  COMP-3 

05 

FILLER 

PIC 

X(21 > . 

05 

WSD 

PIC 

X<2)  . 

05 

FILLER 

PIC 

X<32) . 

05 

NSN 

PIC 

X<13) . 

05 

RETL-QTY 

PIC 

9<5)  COMP-3 

05 

FIl.LER 

PIC 

X. 

05 

AAC 

PIC 

X. 

05 

REPLN-QTY 

PIC 

9(5)  COMP- 3 

05 

FILLER 

PIC 

X(175) . 

05 

ACT-CD 

PIC 

X<2)  . 

05 

FILLER 

PIC  X(21 >. 

05 

SVC-CD 

PIC  X. 

05 

FILLER 

PIC  X(31 > . 

FD 

NEW-PROV 

LABEL  RECORDS 

ARE  STANDARD 

RECORD  CONTAINS  40  CHARACTERS 

DATA  RECORD  IS 

DATA-LN - 

01 

DATA-LN 

PIC  X(40). 

WORKING-STORAGE  SECTION. 

01 

CTR1  F^IC 

999999. 

01 

CTR2  PIC 

999999. 

01 

NSNCTR  PIC 

999999. 

01 

NSN-OLD  PIC 

X<13)  . 

01 

FIRST-DTE  PIC  X(4)  VALUE  '9999 

01 

EOF-SW  PIC 

X  VALUE  'N' . 

01 

SSR-REC-OUT. 

05 

DOR-0  PIC 

X<4)  . 

05 

ACTV-CD-0  PIC  X(2). 

05 

NSN-0  PIC 

X(13). 

05 

DRPR-O  PIC 

X<5)  . 

05 

WSD-0  PIC 

X<2). 

05 

RETL-QTY-0 

PIC  X(5). 

05 

REPLN-QTY-0 

PIC  X<5). 

05 

ACT-CD-0 

PIC  X(2). 

05 

AAC-0 

PIC  X. 

05 

SVC-CD-0 

PIC  X. 

PROCEDURE  DIVISION. 

000--MAIN. 

PERFORM  1 00-START. 

PERFORM  210-NSN-CHECK  UNTIL  EOF-SW  =  'Y'. 

PERFORM  300-TERMINATE. 

STOP  RUN. 

100-START. 

OPEN  INPUT  PCHF. 

OPEN  OUTPUT  NEW-PROV. 

PERFORM  1 1 O-COUNTERS. 

READ  PCHF  AT  END  MOVE  'Y'  TO  EOF-SW. 

ADD  1  TO  CTR1 . 

MOVE  NSN  TO  NSN-OLD. 

110-COUNTERS. 

MOVE  0  TO  CTR1 . 

MOVE  0  TO  CTR2- 

MOVE  0  TO  NSNCTR. 

210-NSN-CHECK. 

IF  NSN  IS  NOT  EQUAL  NSN-OLD  PERFORM  220-DATA- TRANSFER . 
ADD  1  TO  NSNCTR 
IF  DOR  <  FIRST-DTE 

MOVE  DOR  TO  FIRST-DTE 

MOVE  DOR  TO  DOR-0 

MOVE  ACTV-CD  TO  ACTV-CD-0 

MOVE  NSN  TO  NSN-0 

MOVE  NSN  TO  NSN-OLD 

MOVE  DRPR  TO  DRPR-0 

MOVE  USD  TO  WSD-0 

MOVE  RETL-QTY  TO  RETL-QTY-0 

MOVE  REPLN-QTY  TO  REPLN-QTY-  0 


MOVE  AAC  TO  AAC-0 
MOVE  ACT-CD  TO  ACT-CD-0 
MOVE  SVC-CD  TO  SVC-CD-0* 

READ  PCHF  AT  END  MOVE  'Y'  TO  EOF-SW* 

ADD  1  TO  CTR1 . 

220-DATA-TRANSFER . 

WRITE  DATA-LN  FROM  SSR-REC-OUT. 

ADD  1  TO  CTR2. 

MOVE  SPACES  TO  SSR-REC-OUT. 

MOVE  9999  TO  FIRST-DTE* 

MOVE  NSN  TO  NSN-OLD. 

300-TERMINATE. 

DISPLAY  CTR1 * 

DISPLAY  CTR2. 

CLOSE  PCHF  NEW-PROV. 

STOP  RUN* 

/* 

//G0.SYS01G  DD  DSN=FLO . ARNETT . PROV . I , UNIT=3350 , DISP=OLD 
//G0*SYS020  DD  DSN=FLO .  PROV .  I .  UNIT=335G,  DISp:=  ( NEW ,  CATLG ,  DELETE )  , 
//  SPACE= ( CYL , <  5G , 1 G ) , RLSE  > , DCB=  <  RECFM=FB . LRECL=4G , 

//  BLKSIZE=1 9GGG ) , VOL=SER=FLO0G2 

//GO.SYSOUT  DD  SYSOUT=« 

// 


& 


■imU'UmUAi  iiiimLiii.umiiiJii  n  uiuiulilul  mu.  uin  j.  u  m - 


85.071  14.39.39  * 

* 

« 

«  « 


»  FL06515 

*  FLO. ARNFTT. COBOL 
«  (PROV) 


//FLOPROVI  JOB 
//* 


(6512, LO)  ,  'FJP'  ,CLASS--=R,MSt,CLASS=X,N0TIFY=FL0651 


FRANK  PFNDERiROOM  3B330 ; CAMERON  STATION  ALEXANDRIA ; 274-7227 


THIS  IS  DATASET  FLO . ARNETT . COBOL < PROV > 


THE  JCL  AND  PROGRAM  TO  GENERATE  A  FILE  OF  PROVISIONING 
ITEMS  WITH  DATA  ELEMENTS  FROM  THE  PROVISIONING  HISTORY 
AND  THE  MARS  ITEM  DATA  FILE.  FOR  USE  IN  A  PROVISIONING 


//« 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//STEP1  EXEC  C0BUCLG,REGI0N=80<)K,PARM 
//SYSUDUMP  DD  SYSOUT=it 
//SYSIN  DD  » 

IDENTIFICATION 
PROGRAM  -  ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

REMARKS. 


FILE 

STUDY. 


SIZ=800K  ,  SXR ,  CNT==56  ' 


DIVISION. 
PR0VISG1 . 

FRANK  J.  PENDER. 
DLA-LOO. 

JAN  1985. 


SECTION, 


ENVIRONMENT 
CONFIGURATION 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
INPUT-OUTPUT  SECTION 
FILE-CONTROL. 

SELECT  PROVE I LE 
SELECT  IMARS 
SELECT  OUTFILE 
»  SELECT  WORK FILE 
DATA 
FILE 


EYES. 

THIS  PROGRAM  SELECTS  CERTAIN  ITEMS  FROM  THE 
PROVISION  HISTORY  FILE  AND  MARS  DATA  FILE  BASED 
ON  CRITERIA  FROM  GARY  ARNETT. 

DIVISION. 


ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
DIVISION. 
SECTION. 


TO 

TO 

TO 

TO 


UT-S-SYS010. 

UT-S-SYSG20. 

UT-S-SYS03O. 

UT-S-SYS040. 


FI) 


01 


PROVE  I LE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS 
DATA  RECORD  IS 
PROVREC. 


0  RECORDS 
PROVREC . 


03 

PATV 

PIC 

X(2)  . 

03 

PDOR 

PIC 

X<4)  . 

03 

PNSN 

PIC 

X(13) 

03 

PDRPR 

PIC 

X  <  5  )  . 

03 

PWSD 

PIC 

X(2)  . 

03 

PRTAIL 

PIC 

9(5)  . 

03 

PRPLEN 

PIC 

9(5)  . 

03 

PAAC 

PIC 

X. 

E-4 


V. 


PIC  X(2) 
PIC  X. 


G3  PATN 
03  PSVC 
FD  IMARS 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 


BLOCK  CONTAINS  0  RECORDS 
DATA  RECORD  IS  IMARSREC- 
01  IMARSREC* 


03 

I  DSC 

PIC 

X. 

03 

INSN 

PIC 

X(13>. 

03 

FILLER 

PIC 

X(33) . 

03 

ISSC 

PIC 

X. 

03 

FILLER 

PIC 

X(6)  . 

03 

lUPR 

PIC 

X(9)  . 

03 

FILLER 

PIC 

X<34) . 

03 

lAIC 

PIC 

X. 

03 

IICC 

PIC 

X. 

03 

FILLER 

PIC 

X(46) . 

03 

lALT 

PIC 

X(3)  . 

03 

IPLT 

PIC 

X<3) . 

03 

FILLER 

PIC 

X(13). 

03 

I  DMA 

PIC 

X<5>. 

03 

FILLER 

PIC 

X(34) . 

03 

IBOG 

PIC 

X<9)  . 

03 

FILLER 

PIC 

X(57> . 

03 

INSOQ 

PIC 

X(9>  . 

03 

FILLER 

PIC 

X(7) . 

03 

IQFD 

PIC 

X<9)  . 

03 

IQFDN 

PIC 

X(9)  . 

03 

FILLER 

PIC 

X ( 130 ) 

03 

INDQI 

PIC 

9(9)  . 

03 

INDQ2 

PIC 

9(9)  . 

03 

1NDQ3 

PIC 

9(9)  . 

03 

INDQA 

PIC 

9(9)  . 

03 

FILLER 

PIC 

X(20)  . 

03 

IRDQ1 

PIC 

9(9)  . 

03 

IRDQ.2 

PIC 

9(9)  . 

03 

IRDQ3 

PIC 

9(9)  . 

03 

IRDQ4 

PIC 

9(9)  . 

03 

FILLER 

PIC 

X(75)  . 

FD  OUTFILE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 
DATA  RECORD  IS  OUTFILEREC. 
01  OUTFILEREC  SYNC. 


03 

OPROVREC 

PIC 

X(4(>) 

03 

ODSC 

PIC 

X. 

03 

OIND 

PIC 

X  <  2  > . 

03 

OSSC 

PIC 

X. 

03 

OUPR 

PIC 

X(9>  . 

03 

OICC 

PIC 

X. 

03 

OAIC 

PIC 

X. 

03 

OALT 

PIC 

X  ( 3 )  . 

03 

OPLT 

PIC 

X(3)  . 

03 

ODMA 

PIC 

X(5)  . 

E-5 


03 

OBOQ 

PIC 

X(9)  . 

03 

ONSOQ 

PIC 

X(9)  . 

03 

OQFD 

PIC 

X<9>  . 

03 

OQFDN 

PIC 

X(9)  . 

03 

0DQ832 

PIC 

9<9>  . 

03 

0DQ833 

PIC 

9(9)  . 

03 

0DQ834 

PIC 

9(9)  . 

03 

0DQ841 

PIC 

9(9)  . 

03 

0DQ842 

PIC 

9(9)  . 

03 

0DQ843 

PIC 

9(9)  . 

03 

0DQ844 

PIC 

9(9)  . 

03 

0DQ851 

PIC 

9(9)  . 

03 

0PQ832 

PIC 

9(9) . 

03 

0PQ833 

PIC 

9(9)  . 

03 

0PQ834 

PIC 

9(9)  . 

03 

0PQ841 

PIC 

9(9)  . 

03 

0PQ842 

PIC 

9(9)  . 

03 

0PQ843 

PIC 

9(9)  . 

03 

0PQ844 

PIC 

9(9)  . 

03 

apQ851 

PIC 

9(9)  . 

^♦FD  UORKFILE 

w  LABEL  RECORDS  ARE  STANDARD 

*  RECORDING  MODE  IS  F 

*  BLOCK  CONTAINS  0  RECORDS 

n  DATA  RECORD  IS  WORKFILEREC. 
»01  WORKFILEREC. 


03 

FILLER 

PIC 

X(9> . 

03 

WNSN 

PIC 

X(13) 

A 

03 

FILLER 

PIC 

X(80) 

A 

03 

FILLER 

PIC 

X(36) 

* 

03 

UD(;!842 

PIC 

9(9)  . 

* 

03 

WDQ843 

PIC 

9(9) . 

* 

03 

WDQ844 

PIC 

9(9) . 

» 

03 

UD(3851 

PIC 

9(9)  . 

* 

03 

FILLER 

PIC 

X(72) 

* 

WORKING-STORAGE 

SECTION. 

01 

DUM-HEAD 

PIC 

X(15) 

VALUE  'BEGIN  WORK 

01 

CTRS  SYNC 

« 

03 

CTR1 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR2 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR3 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR4 

PIC 

9(6) 

COMP 

VALUE 

ZEROES . 

03 

CTRS 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR6 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR7 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR8 

PIC 

9(6) 

COMP 

VALUE 

ZEROES . 

03 

CTR9 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR10 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

01 

IND 

PIC 

9(4) 

VALUE 

ZEROES. 

01 

PRATE 

PIC 

9(5) 

VALUE 

ZEROES. 

01 

PNSNH 

PIC 

X(13) 

VALUE 

SPACE . 

01 

PR(3TY 

PIC 

9(8) 

VALUE 

ZEROES. 

PROCEDURE  DIVISION. 

BEGIN  -PROG. 

OPEN  INPUT  PROVFILE. 

OPEN  INPUT  I MARS. 


*  OPEN  INPUT  WORKFILE* 

OPEN  OUTPUT  OUTFILE* 

MOVE  00000  TO  OUTFILEREC* 

DQLVL. 

MOVE  000000000  TO  0DQ832* 

MOVE  000000000  TO  0DQ833. 

MOVE  000000000  TO  0DQ834. 

MOVE  000000000  TO  0DQ84i * 

MOVE  000000000  TO  0DQ842. 

MOVE  000000000  TO  0DQ843. 

MOVE  000000000  TO  0DQ844. 

MOVE  000000000  TO  00(3851  * 

MOVE  000000000  TO  0PQ832. 

MOVE  000000000  TO  0PQ833. 

MOVE  000000000  TO  0PQ834. 

MOVE  000000000  TO  OP(384i  * 

MOVE  000000000  TO  0PQ842* 

MOVE  000000000  TO  0PQ843. 

MOVE  000000000  TO  0P(3844. 

MOVE  000000000  TO  0P(385i  . 

READPROV. 

READ  PROVFILE  AT  END  MOVE  •9999999999999'  TO  PNSN. 

IF  PNSN  NOT  NUMERIC  ADD  1  TO  CTR9  CO  TO  READPROV. 

ADD  1  TO  CTR1 . 

IF  CTR1  =  1  MOVE  PNSN  TO  PNSNH. 

PROVMATCH. 

IF  PNSNH  NOT  =  PN.'?N  GO  TO  MARSMATCH. 

IF  PDRPR  <  83001  GO  TO  READPROV. 

IF  PDRPR  >  84365  GO  TO  READPROV. 

ADD  1  TO  IND. 

IF  IND  >  001  GO  TO  READPROV. 

ADD  1  TO  CTR6. 

MOVE  PROVREC  TO  OPROVREC. 

COMPUTE  PRATE  =  PRPLEN  *  .25  +  .5. 

COMPUTE  PRQTY  =  PRATE  +  PRTAIL. 

IF  PDRPR  <  83091  COMPUTE  0PQ832  =  0PQ832  +  PRQTY  GO  TO  QTR3. 

IF  PDRPR  <  83181  COMPUTE  0PQ833  =  0PQ833  +  PRQTY  GO  TO  QTR4. 

IF  PDRPR  <  83271  COMPUTE  0PQ834  =  0PQ834  +  PRQTY  GO  TO  QTR5. 

IF  PDRPR  <  83365  COMPUTE  0PQ841  =  0PQ841  +  PRQTY  GO  TO  QTR6. 

IF  PDRPR  <  84091  COMPUTE  0PQ842  ==  0PQ842  +  PRQTY  GO  TO  QTR7. 

IF  PDRPR  <  84181  COMPUTE  0PQ843  =  0PQ843  +  PRQTY  GO  TO  QTR8. 

IF  PDRPR  <  84271  COMPUTE  0PQ844  =  0PQ844  +  PRQTY  GO  TO  QTR9. 

IF  PDRPR  <  84365  COMPUTE  0PQ851  =  0PQ851  +  PRQTY  GO  TO  QTR10. 

QTR3.  COMPUTE  0PQ833  =  0PQ833  +  PRATE. 

QTR4.  COMPUTE  0PQ834  =  0PQ834  +  PRATE. 

QTR5.  COMPUTE  0PQ841  =  0PQ841  +  PRATE. 

QTR6.  COMPUTE  0PQ842  =  0PQ842  +  PRATE. 

QTR7.  COMPUTE  0PQ843  =  0PQ843  +  PRATE. 

QTR8.  COMPUTE  0PQ844  =  QPQ844  +  PRATE. 

QTR9.  COMPUTE  0PQ851  =  0PQ851  +  PRATE. 

QTR10. 

GO  TO  READPROV. 

MARSMATCH. 

IF  IND  <001  ADD  1  TO  CTR7  GO  TO  RES-ETPROV. 

IF  PNSNH  <  INSN  GO  TO  RESETPROV. 

IF  PNSNH  >  INSN  GO  TO  READIMARS. 


MOVE  IND  TO  OIND* 

MOVE  ID.VC  TO  ODSC. 

MOVE  IS SC  TO  OSSC. 

MOVE  lUPR  TO  OUPR. 

MOVE  IICC  TO  OICC- 

MOVE  lAIC  TO  OAIC* 

MOVE  I ALT  TO  OALT. 

MOVE  IPLT  TO  OPLT. 

MOVE  IDMA  TO  ODMA. 

MOVE  IBOQ  TO  OBOQ* 

MOVE  INSOQ  TO  ONSOQ* 

MOVE  IQFD  TO  OQFD. 

MOVE  IQFDN  TO  OQFDN. 

COMPUTE  0DQ832  =  INDQ4  +  IRDQ4- 
COMPUTE  0DQ833  =  INDQ3  +  IRDQ3. 

COMPUTE  0DQ834  =  INDQ2  +  IRDQ2. 

COMPUTE  0DQ841  =  INDQ1  +  IRDQ1  . 

WRITE  OUTFILEREC. 

ADD  1  TO  CTR2* 

READ I MARS. 

READ  IMARS  AT  END  GO  TO  EOJ. 

IF  IDMA  <  83001  GO  TO  READIMARS. 

IF  lAIC  =  'N*  NEXT  SENTENCE  ELSE  GO  TO  READIMARS. 
ADD  1  TO  CTR3. 

GO  TO  MARSMATCH. 

RESETPROV. 

MOVE  PNSN  TO  PNSNH. 

ADD  IND  TO  CTR8. 

MOVE  0000  TO  IND. 

MOVE  00000  TO  OUTFILEREC. 

PERFORM  DQLVL. 

IF  PNSN  =  '9999999999999'  GO  TO  EOJ. 

GO  TO  PROVMATCH. 

*WORKMATCH. 

*  IF  INSN  <  WNSN  GO  TO  READIMARS. 

IF  INSN  >  WNSN  GO  TO  READWORKFILE . 

»  COMPUTE  WDQ842  =  INDQ4  +  IRDQ4- 

*  COMPUTE  WDQ843  =  INDQ3  +  IRDQ3. 

»  COMPUTE  WD(3844  =  INDQ2  +  IRDQ2. 

«  COMPUTE  WDQ851  =  INDQ1  +  IRDQ1 . 

»  MOVE  WORKFILEREC  TO  OUTFILEREC. 

*  WRITE  OUTFILEREC. 

*  ADD  1  TO  CTR4. 

<»READWORKFILE. 

»  READ  WORKFILE  AT  END  GO  TO  EOJ. 

*  ADD  1  TO  CTR5. 

*  GO  TO  WORKMATCH. 

EOJ. 

DISPLAY  'PROVFILE  INPUT  ’  CTR1 . 

DISPLAY  'OUTFILE  OUTPUT  ’  CTR2. 

DISPLAY  'IMARS  INPUT  '  CTR3. 

DISPLAY  ■0UTFILE2  OUTPUT  '  CTR4. 

DISPLAY  'WORKFILE  INPUT  '  CTR5. 

DISPLAY  'VALID  PROV  RECS  '  CTRA. 

DISPLAY  'INVAL  PROV  RECS  '  CTR7. 

DISPLAY  ' TOTL  NBR  SSRS  '  CTR8. 
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DISPLAY  'INVAL  NSN  FIELD 
CLOSE  PROVFILE. 

CLOSE  I MARS. 

CLOSE  OUTFILE. 

CLOSE  UORKFILE. 

STOP  RUN. 


CTR9. 


/* 

//GO, 

//GO, 

//GO, 

// 

// 

//GO, 

/« 

// 


SYSOiO  DD  DSN=FL0.FJP.S0RT.PR0VRECI,DISP=0LD,UNIT=3350 
SYS020  DD  DSN=G0R.ITEM84< .I,DISP»OLD,UNIT=TAPE 
SYS030  DD  DSN=FLO. FJP.PR0V.CMB3I,DISP=( NEW, CATLG, DELETE ) , 
DCB= ( RECFM=FB , LRECL=246 , BLK  SI ZE* 1 8450  > , 
UNIT=3350,SPACE=<TRK, (2000,50) ,RLSE) ,V0L=SER=FL00©1 
SYSOUT  DD  SYS0UT=» 


*  * 

*  FL06515  85*071  14.40.29  * 

*  FLO.ARNETT.COBOL  * 

«  <PROX)  * 

M  w 


//FLOPROXI  JOB  (6512,1.0),  '  FJP  '  ,  CLASS=R,  MS:GCLASS==X  ,  N0TIFY=FL0651  5 
//* 

//*  FRANK  PENDER; ROOM  3B330 ; CAMERON  STATION  ALEXANDRIA ; 274-7227 
//* 

//*  THIS  IS  DATASET  FLO. ARNETT. COBOL(PROX> 

//* 

//*  THE  JCL  AND  PROGRAM  TO  GENERATE  A  FILE  OF  PROVISIONING 

//*  ITEMS  WITH  DATA  ELEMENTS  FROM  THE  PROVISIONING  HISTORY  FILE 

//*  AND  THE  MARS  ITEM  DATA  FILE.  FOR  USE  IN  A  PROVISIONING  STUDY. 

//» 

//STEP1  EXEC  C0BUCLG,REGI0N=800K,PARM*'SIZ=800K,SXR,CNT=56' 
//SYSUDUMP  DD  SYSOUT=» 

//SYSIN  DD  « 

IDENTIFICATION  DIVISION. 

PROGRAM-ID.  PR0VIS02. 

AUTHOR.  FRANK  J.  PENDER. 

INSTALLATION.  DLA-LOO. 

DATE-WRITTEN.  JAN  1985. 

DATE-COMPILED. 

SECURITY.  EYES. 

REMARKS.  THIS  PROGRAM  SELECTS  CERTAIN  ITEMS  FROM  THE 

PROVISION  HISTORY  FILE  AND  MARS  DATA  FILE  BASED 
ON  CRITERIA  FROM  GARY  ARNETT. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

INPUT-OUTPUT  SECTION. 

FILE-CONTROL. 

SELECT  PROVFILE  ASSIGN  TO  UT-S-SYS010. 

SELECT  IMARS  ASSIGN  TO  UT-S-SYS02G. 

SELECT  OUTFILE  ASSIGN  TO  UT-S-SYS030. 

SELECT  WORKFILE  ASSIGN  TO  UT-S-SYS040. 

DATA  DIVISION. 

FILE  SECTION. 

FD  PROVFILE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  G  RECORDS 


DATA  RECORD  IS  PROVREC. 
G1  PROVREC. 


G3 

PDOR 

PIC  X(4). 

G3 

PESDAT 

PIC  X(5). 

03 

PNSN 

PIC  X(13> 

03 

PDRPR 

PIC  X(5). 

03 

PWSD 

PIC  X. 

03 

PRTAIL 

PIC  9(5). 

03 

PRPLEN 

PIC  9(5). 

PIC  X 


03  PSVC 
FD  IHARS 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 
DATA  RECORD  IS  IMARSREC. 

Oi  IMARSREC* 


03 

IDSC 

PIC 

X. 

03 

INSN 

PIC 

X<13) - 

03 

FILLER 

PIC 

X(33) . 

03 

ISSC 

PIC 

X- 

03 

FILLER 

PIC 

X(6>  - 

03 

lUPR 

PIC 

X(9>  - 

03 

FILLER 

PIC 

X(35) . 

03 

IICC 

PIC 

X- 

03 

FILLER 

PIC 

X(46> - 

03 

I  ALT 

PIC 

X(3)- 

03 

IPLT 

PIC 

X<3)  . 

03 

FILLER 

PIC 

X<13) - 

03 

I  DMA 

PIC 

X<5)  - 

03 

FILLER 

PIC 

X<34) . 

03 

IBOQ 

PIC 

X(9) . 

03 

FILLER 

PIC 

X(57) . 

03 

INSOQ 

PIC 

X(9)  . 

03 

FILLER 

PIC 

X<7)  . 

03 

IQFD 

PIC 

X(9)  . 

03 

IQFDN 

PIC 

X(9>  . 

03 

FILLER 

PIC 

X(130) 

03 

INDQ1 

PIC 

9<9> . 

03 

INDQ2 

PIC 

9(9)  . 

03 

INDQ3 

PIC 

9(9)  . 

03 

INDQ4 

PIC 

9(9)  - 

03 

FILLER 

PIC 

X(20) - 

03 

IRDQi 

PIC 

9(9)  . 

03 

IRDQ2 

PIC 

9(9). 

03 

IRDQ3 

PIC 

9(9). 

03 

IRDQ4 

PIC 

9(9) . 

03 

FILLER 

PIC 

X(75) . 

FD  OUTFILE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 
DATA  RECORD  IS  OUTFILEREC. 
01  OUTFILEREC  SYNC- 


03 

OPROVREC 

PIC 

X(40) 

03 

ODSC 

PIC 

X. 

03 

OIND 

PIC 

X(2) . 

03 

OSSC 

PIC 

X. 

03 

OUPR 

PIC 

X(9)  - 

03 

OAIC 

PIC 

X- 

03 

OICC 

PIC 

X. 

03 

OALT 

PIC 

X(3)  . 

03 

OPLT 

PIC 

X(3) . 

03 

ODMA 

PIC 

X(5)  . 

03 

OBOQ 

PIC 

X(9)  . 

03 

ONSOQ 

PIC 

X(9)  . 

03 

OQFD 

PIC 

X(9)  . 

03 

OQFDN 

PIC 

X(9)  . 

03 

0DQ832 

PIC 

9(9)  . 

03 

0DQ833 

PIC 

9(9)  . 

03 

0DQ834 

PIC 

9(9) . 

03 

0DQ841 

PIC 

9(9)  . 

03 

0DQ842 

PIC 

9(9)  . 

03 

0DQ843 

PIC 

9(9)  . 

03 

0DQ844 

PIC 

9(9)  . 

03 

0DQ85i 

PIC 

9(9)  . 

03 

0PQ832 

PIC 

9(9)  . 

03 

0PQ833 

PIC 

9(9)  . 

03 

0PQ834 

PIC 

9(9) . 

03 

0PQ841 

PIC 

9(9)  . 

03 

0PQ842 

PIC 

9(9)  . 

03 

0PQ843 

PIC 

9(9)  . 

03 

0PQ844 

PIC 

9(9)  . 

03 

0PQ851 

PIC 

9(9)  . 

WORKFILE 

LABEL  RECORDS  ARE  STANDARD 
RECORDING  MODE  IS  F 
BLOCK  CONTAINS  0  RECORDS 


DATA  RECORD  IS  WORKFILEREC. 
G1  WORKFILEREC. 


03 

FILLER 

PIC 

X(6) . 

03 

WNSN 

PIC 

X(13) 

« 

03 

FILLER 

PIC 

X(83) 

* 

03 

FILLER 

PIC 

X(36) 

03 

WDQ842 

PIC 

9(9) . 

03 

WD(9843 

PIC 

9(9)  . 

03 

WDQ844 

PIC 

9(9)  . 

03 

WD(;|851 

PIC 

9(9)  . 

03 

FILLER 

PIC 

X(72) 

* 

WORKING-STORAGE 

SECTION. 

01 

DUM-HEAD 

PIC 

X(15) 

VALUE  'BEGIN  WORK  STOR 

01 

CTRS  SYNC 

« 

03 

CTR1 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR2 

PIC 

9(6) 

COMP 

VALUE 

ZEROES . 

03 

CTR3 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR4 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTRS 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR6 

PIC 

9(6) 

COMP 

VALUE 

ZEROES . 

03 

CTR7 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR8 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

03 

CTR9 

PIC 

9(6) 

COMP 

VALUE 

ZEROES. 

©3 

CTR10 

PIC 

9(6) 

COMP 

VALUE 

ZEROES . 

01 

IND 

PIC 

9(3) 

VALUE 

ZEROES. 

01 

PRATE 

PIC 

9(5) 

VALUE 

ZEROES. 

01 

PNSNH 

PIC 

X(13) 

VALUE 

SPACE . 

01 

PRQTY 

PIC 

9(8) 

VALUE 

ZEROES. 

PROCEDURE  DIVISION. 

BEG IN-PROG. 

OPEN  INPUT 

PROVE ILE 

m 

OPEN  INPUT 

I MARS. 

OPEN  INPUT 

WORKFILE 

* 

OPEN  OUTPUT  OUTFILE. 


MOVE  00000  TO  OUTFILEREC* 

DQLVL* 

MOVE  000000000  TO  0DQ832. 

MOVE  000000000  TO  0DQ833. 

MOVE  000000000  TO  0DQ834. 

MOVE  000000000  TO  0DQ84i * 

MOVE  000000000  TO  0DQ842. 

MOVE  000000000  TO  0DQ843. 

MOVE  000000000  TO  0DQ844* 

MOVE  000000000  TO  0DQ851 * 

MOVE  000000000  TO  0PQ832. 

MOVE  000000000  TO  0PQ833* 

MOVE  000000000  TO  0PQ834. 

MOVE  000000000  TO  0PQ841 .  ^ 

MOVE  000000000  TO  0PQ842* 

MOVE  000000000  TO  0PQ843. 

MOVE  000000000  TO  0PQ844. 

MOVE  000000000  TO  0PQ851 . 

ENDQLVL. 

GO  TO  READWORKFILE* 

READPROV. 

READ  PROVFILE  AT  END  GO  TO  EOJ. 

IF  PNSN  NOT  NUMERIC  ADD  1  TO  CTR9  GO  TO  READPROV. 

ADD  i  TO  CTR1 . 

IF  CTR1  =  1  MOVE  PNSN  TO  PNSNH. 

PROVMATCH. 

IF  PNSNH  NOT  =  PNSN  GO  TO  MARSMATCH. 

IF  PDRPR  <  83001  GO  TO  READPROV. 

IF  PDRPR  >  84365  GO  TO  READPROV. 

ADD  1  TO  IND. 

ADD  1  TO  CTR6. 

MOVE  PROVREC  TO  OPROVREC. 

COMPUTE  PRATE  =  PRPLEN  «  .25  +  .5. 

COMPUTE  PRQTY  =  PRATE  +  PRTAIL. 

IF  PDRPR  <  83091  COMPUTE  0PQ832  =  0PQ832  +  PRQTY  GO  TO  QTR3. 

IF  PDRPR  <  83181  COMPUTE  0PQ833  =  0PQ833  +  PRQTY  GO  TO  QTR4. 

IF  PDRPR  <  83271  COMPUTE  0PQ834  =  0PQ834  +  PRQTY  GO  TO  QTR5. 

IF  PDRPR  <  83365  COMPUTE  0PQ841  =  0PQ841  +  PRQTY  GO  TO  QTR6. 

IF  PDRPR  <  84091  COMPUTE  0PQ842  =  0PQ842  +  PRQTY  GO  TO  QTR7. 

IF  PDRPR  <  84181  COMPUTE  0PQ843  =  0PQ843  +  PRQTY  GO  TO  QTR8. 

IF  PDRPR  <  84271  COMPUTE  0PQ844  =  0PQ844  +  PRQTY  GO  TO  QTR9. 

IF  PDRPR  <  84365  COMPUTE  0PQ851  =  0PQ851  +  PRQTY  GO  TO  QTR10. 

QTR3.  COMPUTE  0PQ833  0PQ833  +  PRATE. 

QTR4.  COMPUTE  0PQ834  =  0PQ834  +  PRATE. 

QTR5.  COMPUTE  0PQ841  =  0PQ841  +  PRATE. 

QTR6.  COMPUTE  0PQ842  =  0PQ842  +  PRATE. 

QTR7.  COMPUTE  0PQ843  =  0PQ843  +  PRATE. 

QTR8.  COMPUTE  0PQ844  ==  0PQ844  +  PRATE. 

QTR9.  COMPUTE  0PQ851  =  0PQ851  +  PRATE. 

QTR10. 

GO  TO  READPROV. 

MARSMATCH. 

IF  IND  <  001  ADD  1  TO  CTR7  GO  TO  RESETPROV. 

IF  PNSNH  <  INi’N  GO  TO  RESETPROV. 

IF  PNSNH  >  INSN  GO  TO  READIMARS. 

MOVE  IND  TO  OIND. 


MOVE 

IDSC 

TO 

ODSC. 

MOVE 

ISSC 

TO 

OSSC. 

MOVE 

lUPR 

TO 

OUPR. 

MOVE 

IICC 

TO 

OICC. 

MOVE 

lALT 

TO 

OALT. 

MOVE 

IPLT 

TO 

OPLT. 

MOVE 

IDMA 

TO 

ODMA. 

MOVE 

IBOQ 

TO 

OBOQ. 

MOVE 

INSOQ 

TO 

ONSOQ 

MOVE 

IQFD 

TO 

OQFD. 

MOVE 

IQFDN 

TO 

OQFDN 

COMPUTE 

COMPUTE 

COMPUTE 

COMPUTE 


0DQ832  = 
000833  = 
0DQ834  = 
0I)Q841  = 


INDQ4 

1NDQ3 

INDQ2 

INDQi 


IRDQ4. 
IRDQ3. 
IRDQ2. 
IRDG11  * 


WRITE  OUTFILEREC* 

ADD  1  TO  CTR2* 

READIMARS* 

READ  IMARS  AT  END  GO  TO  EOJ 
ADD  1  TO  CTR3. 

GO  TO  WORKMATCH. 

RESETPROV. 

MOVE  PNSN  TO  PNSNH. 

ADD  IND  TO  CTR8. 

MOVE  000  TO  IND. 

MOVE  00000  TO  OUTFILEREC. 
PERFORM  DQLVL. 

GO  TO  PROVMATCH. 

WORKMATCH. 

<  WNSN 

>  wn;^n 

WDQ842  = 

WDQ843  = 

WD0844  = 

WDQ851  = 

MOVE  WORKFILEREC 
WRITE  OUTFILEREC. 

ADD  1  TO  CTR4. 

READWORKFILE. 

READ  WORKFILE  AT  END  GO  TO 
ADD  1  TO  CTR5. 

GO  TO  WORKMATCH. 

EOJ. 


IF  INSN 
IF  INSN 
COMPUTE 
COMPUTE 
COMPUTE 
COMPUTE 


GO  TO  READIMARS. 

GO  TO  READWORKFILE. 
INDQ4  +  IRDQ4. 
INDG!3  +  IRDQ3. 
INDQ2  +  IRDQ2. 
IND(31  +  IRDQi  . 

TO  OUTFILEREC. 


EOJ. 


DISPLAY 

•PROVFILE 

INPUT 

■  CTR1 . 

DISPLAY 

■OUTFILE 

OUTPUT 

'  CTR2. 

DISPLAY 

’ IMARS 

INPUT 

■  CTR3. 

DISPLAY 

'0UTFILE2 

OUTPUT 

■  CTR4. 

DISPLAY 

■WORKFILE 

INPUT 

■  CTR5. 

DISPLAY 

■VALID  PROV  RECS 

■  CTRA. 

DISPLAY 

■INVAL  PROV  RECS 

'  CTR7. 

DISPLAY 

■  TOTL  NBR 

SSRS 

'  CTR8. 

DISPLAY 

■INVAL  NSN  FIELD 

'  CTR9. 

CLO.S'E 

CLOSE 

CLOSE 

CLOSE 


PROVFILE, 
I MARS. 
OUTFILE. 
WORKFILE, 


STOP  RUN 


/* 

//GO.SYSOiO  DD  DUMMY  ,  DSN=FLO.FJP*SC)RT.PROVRECI ,  DISP=OLD 
//&0.SYS02G  DD  DSN=GOR * ITEM851 *  I , DISP=OLD , UNIT=TAPE 
//G0.SYS03G  DD  DSN=FLO .FJP .PR0V*CMB4I , DISP=(NEW , CATLG , DELETE ) , 

//  DCB=(RECFM=FEi,LRECL=24A.EiLKSIZE=i845G)  , 

//  UNIT=335G,SPACE=(TRK, (iSGG, iOG) ,RLSE> ,VQL=SER=FLOGGi 

//G0.SYSG4G  DD  DSN=FLO. F JP *PROV .CMB3I , DISP=OLD 
//GO.SYSOUT  DD  SYSOUT==* 

/» 

// 


E-15 


,V  y,'>v 

-j./j 


"tn 

ft 


«  * 

*  FL06515  85.071  14.39.01  * 

*  FLO. ARNETT. SAS  » 

»  <PROV)  * 

*  * 


//FL06515E  JOB  <  651  5  ,  LO ),' ARNETT CLASS^A ,  MSGCLAi'S=X  , 

//  N0TIFY=FL06515 
//  EXEC  SAS 

//DATAIN  DD  DSN=FLO . F JP . PROV . CMB4E , DISP=OLD 
//SYSIN  DD  » 

DATA  STATS; 

INFILE  DATAIN; 

INPUT  ADQ832  103-111  ADGI833  112-120  ADQ834  121-129  ADC!841  130 
ADQ842  139-147  ADGi843  148-156  ADQB44  157-165  ADQ851  166-174 

SD(3832  175-183  SDQ833  184-192  SDQ834  193-201  SDQ841  202-210 

SDQ842  211-219  SDQ843  220-228  SDQ844  229-237  SDQ851  238-246; 

PROC  MEANS  SUM; 

PROC  CORR; 

RUN; 
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APPENDIX  F 


DGSC  Initial  SSRs 


SAS' 


VARIABLE 

5UM 

ADQ832 

668.0G000G 

AD«833 

2431 .OOGOGG 

ADQ834 

16852.GGGGGG 

ADQ841 

1  82158.  GGGGGG 

ADQ842 

59889. GGGGGG 

ADQ843 

76518.GGGG0G 

ADQ844 

1G8G37.00GGG0 

ADG)851 

1 33685. GGOGGG 

5^DQ832 

7558.GGGG0G 

500833 

43286. GGGOGG 

.S'DG}834 

741 87. GGOGGG 

5DQ841 

8681 8. GGOGGG 

SDQ842 

854G4. GGGOGG 

5DQ843 

81294. GGOGGG 

5DQ844 

74747. GGOGGG 

5DQ851 

79665. GGOGGG 
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VARIABLE 


i'UM 


ADQ832 

ADQ833 
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AD«841 

ADQ842 

ADG843 

ADQ844 

ADQ85i 

SDQ832 

SDQ833 

SDGi834 

SD«84i 

S'DQ842 

SDQ843 

S'DQ844 

SDQ85A 


668.000000 
2431 .000000 
16852.000000 
18258.000000 
59889.000000 
76518.000000 
108037.000000 
133685.000000 
7558.000000 
43851 .000000 
77371 .000000 
96045.000000 
100128.000000 
94683.000000 
94004.000000 
94153.000000 
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